Example. (Cont.)
wbegin
w write(‘How many pairs?’);
w readln(noPairs);
wfor i :=
1 to noPairs do
w begin
w write(‘Enter first letter of’,
w ‘choice (Gcd, Lcm, Both) ‘,
w ‘then two numbers: ‘);
w readln(choice,
oneA, oneB);
w doIt(choice, oneA, oneB)
w end
wend.